home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
fglqbx10.zip
/
10-05.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-07
|
1KB
|
53 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
CONST Visual = 0
CONST Hidden = 1
Status = SETMEM(-1*(64000+16))
REM initialize the video environment
NewMode = FGbestmode(320,200,2)
IF NewMode < 0 OR NewMode = 12 THEN
PRINT "This program requires a 320 x 200 color graphics mode."
STOP
END IF
OldMode = FGgetmode
FGsetmode NewMode
Status = FGallocate(Hidden)
REM draw the background in the upper left corner
FGsetpage Hidden
FGsetcolor 1
FGrect 0, 95, 0, 49
FGsetcolor 15
FGmove 48, 25
FGellipse 20, 20
REM copy it to the center of the visual page
FGtransfer 0, 95, 0, 49, 112, 124, Hidden, Visual
REM slide the object across the background three times
FGsetcolor 10
FOR I = 0 TO 35
Frame = I MOD 12
Offset = 10 * Frame - 10
FGtransfer 0, 95, 20, 29, 112, 105, Hidden, Hidden
FGrect 112+Offset, 131+Offset, 96, 105
FGtransfer 112, 207, 96, 105, 112, 105, Hidden, Visual
FGwaitfor 2
NEXT
REM restore the original video mode and return to DOS
Status = FGfreepage(Hidden)
FGsetmode OldMode
FGreset
END